home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / docs / misc / ConcNews.lha / news / amiga.programming / comp.sys.amiga.programmer_8830_000046.msg < prev    next >
Encoding:
Text File  |  1994-11-27  |  1.6 KB  |  50 lines
  1. Path: dd.chalmers.se!news.chalmers.se!sunic!EU.net!howland.reston.ans.net!agate!msuinfo!cl-next4!dunham
  2. From: dunham@gdl.msu.edu (Steve Dunham)
  3. Newsgroups: comp.sys.amiga.programmer
  4. Subject: Re: 3.0-style propgadgets?
  5. Date: 11 Apr 1994 00:51:06 GMT
  6. Organization: Michigan State University
  7. Lines: 37
  8. Message-ID: <2oa6tq$18em@msuinfo.cl.msu.edu>
  9. References: <2o9ci3$eh@yrsa.ifi.uio.no>
  10. NNTP-Posting-Host: cl-next4.cl.msu.edu
  11. X-Newsreader: TIN [version 1.2 PL1]
  12.  
  13. H�kon Enger (haakone@ifi.uio.no) wrote:
  14.  
  15. : Hello, everybody!
  16.  
  17. :   Does anybody know how to create propgadgets that look like the
  18. : ones on Workbench windows in 3.0+? These are NOT the same as the ones
  19. : I get with the NEWLOOK flag set, nor have I succeded in getting these
  20. : with BOOPSI. Is it a new BOOPSI class?
  21.  
  22. I missed this too the first time that I read the RKM.  You have to set
  23. BORDERLESS to get the 3D effect. eg.
  24.  
  25.  
  26.  
  27.   g=NewObject(NULL, "propgclass",
  28.           GA_RelRight, - 17,
  29.           GA_Width, 18,
  30.           GA_Top, screen->WBorTop+screen->Font->ta_YSize + 1,
  31.           GA_RelHeight, - (9 + 1 + screen->WBorTop + screen->Font->ta_YSize),
  32.           GA_RightBorder, 1,
  33.           GA_Previous,0l,
  34. //          ICA_TARGET, ICTARGET_IDCMP,
  35.           PGA_Freedom, FREEVERT,
  36.           PGA_Total, 10,
  37.           PGA_Top, 1,
  38.           PGA_Visible, 1,
  39.           PGA_NewLook,1,
  40.           PGA_Borderless,1,           /* This tag does the job */
  41.           TAG_DONE);
  42.  
  43. This should work (note that you have to LockPubScreen(NULL) to get the
  44. pointer `screen').  This is from test code for my scroller class, so
  45. the size might not be right.
  46.  
  47.  
  48. Steve Dunham
  49. dunham@gdl.msu.edu
  50.